home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / basic-c / test1.bas < prev    next >
BASIC Source File  |  1988-12-20  |  325b  |  20 lines
  1. rem - this is a remark
  2. cls
  3. for x = 1 to 5
  4.     print "X=";x," X/2=";x/2," X*X=";x*x,"X^X=";x^x;"X%%1=";X%X
  5. next
  6. for x=1 to 10
  7.     print "x:";x,
  8.     for y = 1 to 5
  9.         print "y=";y,
  10.     next
  11.     print
  12. next
  13. 100
  14. input "enter a number fron 1-10 ", y
  15. if y < 1 then goto 100
  16. if y > 10 then goto 100
  17. print "very well!"
  18. input y
  19. end
  20.